home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / numeric pad1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  38 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 sys57812"rom/ram",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  3. 15 sys49152
  4. 20 fori=53092to53246:readx:pokei,x:next
  5. 25 poke1,53:l=58823:pokel,76:pokel+1,113:pokel+2,207
  6. 30 printchr$(9)chr$(142)"numeric pad is installed"
  7. 35 print"ctrl-a[146] to activate"
  8. 40 print"ctrl-c[146] to deactivate"
  9. 45 print"ctrl-r[146] to restore rom"
  10. 50 new
  11. 10000 open15,8,15,"s0:numeric pad1":close15:save"numeric pad1",8:end
  12. 53092 data 169,55,133,1,96,169
  13. 53098 data 0,141,185,207,76,182
  14. 53104 data 207,201,1,240,121,201
  15. 53110 data 3,240,240,201,18,240
  16. 53116 data 231,44,185,207,240,52
  17. 53122 data 201,85,240,64,201,73
  18. 53128 data 240,64,201,79,240,64
  19. 53134 data 201,74,240,40,201,75
  20. 53140 data 240,40,201,76,240,40
  21. 53146 data 201,32,240,52,201,58
  22. 53152 data 240,52,201,59,240,52
  23. 53158 data 201,61,240,52,201,80
  24. 53164 data 240,52,201,64,240,52
  25. 53170 data 201,42,240,52,88,24
  26. 53176 data 96,0,169,49,208,248
  27. 53182 data 169,50,208,244,169,51
  28. 53188 data 208,240,169,52,208,236
  29. 53194 data 169,53,208,232,169,54
  30. 53200 data 208,228,169,48,208,224
  31. 53206 data 169,65,208,220,169,66
  32. 53212 data 208,216,169,67,208,212
  33. 53218 data 169,68,208,208,169,69
  34. 53224 data 208,204,169,70,208,200
  35. 53230 data 169,255,77,185,207,141
  36. 53236 data 185,207,88,165,198,240
  37. 53242 data 252,120,76,180,229
  38.